VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsVendorDetails"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Function GetVendorSubmitData(ByRef nUserID, ByRef nRefNo, ByRef sDesc, _
                                    ByRef nAmt, ByRef nCell, ByRef sMsg, _
                                    ByRef sURL, ByRef sDelay, ByRef sBudget)

Dim adoConn As ADODB.Connection
Dim adoComm As ADODB.Command






Set adoConn = New ADODB.Connection
With adoConn
    .CursorLocation = adUseClient
    .IsolationLevel = adXactBrowse
    .ConnectionString = GetConnectionString() 'Johann (20090625): Centralised code for connection string added
    .Open
End With

Set adoComm = New ADODB.Command
With adoComm
    .CommandText = "dir_get_vendor_submit_data"
    .CommandType = adCmdStoredProc                  'Stored Proc = adCmdStoredProc, Table / View = adCmdTable, SQL String = adCmdText
    Set .ActiveConnection = adoConn
    .Parameters.Append .CreateParameter("nUserID", adVarChar, adParamOutput, 4)
    .Parameters.Append .CreateParameter("nRefNo", adVarChar, adParamOutput, 25)
    .Parameters.Append .CreateParameter("sDesc", adVarChar, adParamOutput, 50)
    .Parameters.Append .CreateParameter("nAmt", adVarChar, adParamOutput, 8)
    .Parameters.Append .CreateParameter("nCell", adVarChar, adParamOutput, 10)
    .Parameters.Append .CreateParameter("sMsg", adVarChar, adParamOutput, 70)
    .Parameters.Append .CreateParameter("sURL", adVarChar, adParamOutput, 100)
    .Parameters.Append .CreateParameter("sDelay", adVarChar, adParamOutput, 1)
    .Parameters.Append .CreateParameter("sBudget", adVarChar, adParamOutput, 1)
End With

adoComm.Execute

nUserID = adoComm.Parameters.Item("nUserID").Value
nRefNo = adoComm.Parameters.Item("nRefNo").Value
sDesc = adoComm.Parameters.Item("sDesc").Value
nAmt = adoComm.Parameters.Item("nAmt").Value
nCell = adoComm.Parameters.Item("nCell").Value
sMsg = adoComm.Parameters.Item("sMsg").Value
sURL = adoComm.Parameters.Item("sURL").Value
sDelay = adoComm.Parameters.Item("sDelay").Value
sBudget = adoComm.Parameters.Item("sBudget").Value

'Get the values
'Clean up
adoConn.Close
Set adoConn = Nothing
Set adoComm = Nothing


End Function

